home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbuf.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-16  |  1.6 KB  |  53 lines

  1. (*===========================================================================*)
  2. (* Handle userid files                                                       *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989, 1991 by H. Roy Engehausen.  All rights reserved.  *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8. {$O+}
  9.  
  10. {$DEFINE POINT_CHK}
  11.  
  12. UNIT BBUF;
  13.  
  14. INTERFACE
  15.  
  16.   USES
  17.     bbdummy;
  18.  
  19.   PROCEDURE add_uid     (uid_to_add : user_record_ptr);
  20.   PROCEDURE uid_init    (uid_data   : user_record_ptr);
  21.   PROCEDURE insert_uid  (uid_to_ins : user_index_ptr);
  22.   PROCEDURE update_uid  (uid_to_upd : user_record_ptr);
  23.   FUNCTION  find_uid    (uid_to_get : call_sign_str)   : user_index_ptr;
  24.   FUNCTION  get_uid     (uid_to_get : user_index_ptr)  : user_record_ptr;
  25.  
  26. VAR
  27.   uid_chain         : user_index_ptr;
  28.   uid_free          : user_index_ptr;
  29.   uid_file          : FILE OF user_record_type;
  30.   uid_total         : WORD;
  31.  
  32. CONST
  33.   uid_buffer_mem_str = 'UFB';
  34.  
  35. IMPLEMENTATION
  36.  
  37. USES
  38.   CRT,
  39.   bbmem,
  40.   bbmisc3,
  41.   bbmisc4,
  42.   bbsema2,
  43.   bbstr,
  44.   bbtime,
  45.   bbtrace;
  46.  
  47. {$I BBUF1.PAS}                             (* Miscellaneous                  *)
  48. {$I BBUF2.PAS}                             (* Add/Init/Insert a User         *)
  49. {$I BBUF3.PAS}                             (* Find/Update a User             *)
  50. {$I BBUF4.PAS}                             (* Get/Display a User             *)
  51.  
  52. END.
  53.